perm filename DEFJS[TNX,AIL] blob sn#119901 filedate 1974-09-18 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	DEFINE DEFJS & (MNE,NUM)
C00003 ENDMK
C⊗;
DEFINE DEFJS & (MNE,NUM)
<	J&MNE←NUM+104B8	>

DEFINE JSYS & (MNEMON)
<	J&MNEMON	>